Option Explicit

REM This script copies the binaries from their output directories,
REM then creates a zip file.

'Wscript.Echo "ScriptName:", Wscript.ScriptName
'Wscript.Echo "ScriptFullName:", Wscript.ScriptFullName

Dim objFSO, objText
Dim strParent, strPath

Set objFSO = CreateObject("Scripting.FileSystemObject")

strParent = objFSO.GetParentFolderName(Wscript.ScriptFullName)
Wscript.Echo "Script.Folder:", strParent

strPath = objFSO.BuildPath(strParent, "SubMakeRelease.vbs")

If Not objFSO.FileExists(strPath) Then
   Wscript.Echo "Subroutine file SubMakeRelease.vbs not found"
   Wscript.Quit
End If   

Set objText = objFSO.OpenTextFile(strPath, 1)  '1=ForReading
Execute(objText.ReadAll)
objText.Close
Set objText = Nothing

Call MakeRelease("2008")
